home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 August: Tool Chest / Dev.CD Aug 98 TC.toast / Tool Chest / Testing & Debugging / Virtual User / Virtual User Current Release / Examples / External Tool Templates / Pascal Tool Template / YourTool.vu < prev    next >
Encoding:
Text File  |  1998-06-04  |  391 b   |  28 lines  |  [TEXT/MPS ]
  1. #
  2. #  External_Tools interface test script.
  3. #
  4.  
  5. Libraries "YourTool.vulib"; 
  6.  
  7. x := YourTool( "Initialize", true);
  8. println x;
  9.  
  10. x:= YourTool( "YourService", 5, 1);
  11.  
  12. println ">> YourTool";
  13. println x;
  14.  
  15. x := YourTool( "GetToolVersion" );
  16. println x;
  17.  
  18. x := YourTool( "GetToolServices");
  19. println x;
  20.  
  21. x := YourTool( "ServiceSupported", "YourService");
  22. println x;
  23.  
  24. x := YourTool( "Quit" );
  25. println x;
  26.  
  27.  
  28.